home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / demo 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  180 lines
  1. 1000 REM ******************************
  2. 1010 REM ******                  ******
  3. 1020 REM ***    ZEICHENRdINEN     ***
  4. 1030 REM ***    ZU d COLOSSAL   ***
  5. 1040 REM ******                  ******
  6. 1050 REM ******************************
  7. 1060 REM
  8. 1070 REM
  9. 1080 REM   (C) 1/86 BY
  10. 1090 REM                F.GRAEF
  11. 1100 REM                6831 PLANKSTADT
  12. 1110 REM
  13. 1120 :
  14. 1130 SYS 52225,0
  15. 1140 :
  16. 1150 REM ------ SCHIRME LOESCHEN -----
  17. 1160 :
  18. 1170 FOR I=1 TO 4
  19. 1180 :    SYS 52225,1,I
  20. 1190 :    d 0,12
  21. 1200 :    do 10,10,""+STR$(I),1,2,12
  22. 1210 NEXT I
  23. 1220 :
  24. 1230 REM MAX. AUFLOESUNG AUF 1 SCHIRM
  25. 1240 REM d 320/200. BEI d
  26. 1250 REM 160/200. M=ZEICHENTYP.
  27. 1260 :
  28. 1270 AX=320:AY=200:M=1
  29. 1280 :
  30. 1290 :
  31. 1300 X1=300:Y1=20:X2=360:Y2=40
  32. 1310 d3 dYIE
  33. 1320 :
  34. 1330 X1=100:Y1=190:R=20
  35. 1340 d3 KREIS
  36. 1350 :
  37. 1360 X1=290:Y1=180:X2=360:Y2=250
  38. 1370 d3 BOX
  39. 1380 :
  40. 1390 REM MIT 1,2,3,4 KOENNEN DIE
  41. 1400 REM VERSCHIEDENEN SCHIRME AN-
  42. 1410 REM GESEHEN WERDEN.
  43. 1420 :
  44. 1430 d1 TASTEN
  45. 1440 :
  46. 1450 GET A$
  47. 1460 A=VAL(A$)
  48. 1470 IF A=0 THEN d2 TASTEN
  49. 1480 :
  50. 1490 IF A<1 THEN A=1
  51. 1500 IF A>4 THEN A=4
  52. 1510 :
  53. 1520 SYS 52225,1,A
  54. 1530 :
  55. 1540 d2 TASTEN
  56. 1550 :
  57. 1560 :
  58. 1570 REM ******************************
  59. 1580 REM ******                  ******
  60. 1590 REM ***       PUNKT X,Y,M      ***
  61. 1600 REM ******                  ******
  62. 1610 REM ******************************
  63. 1620 :
  64. 1630 d1 PUNKT
  65. 1640 :
  66. 1650 dE XX,YY,A
  67. 1660 d3 PUNKT1
  68. 1670 d.
  69. 1680 :
  70. 1690 d4
  71. 1700 :
  72. 1710 :
  73. 1720 d1 PUNKT1
  74. 1730 :
  75. 1740 A=1:XX=INT(X):YY=INT(Y)
  76. 1750 IF XX>AX-1 THEN A=A+1:XX=X-AX
  77. 1760 IF YY>AY-1 THEN A=A+2:YY=Y-AY
  78. 1770 :
  79. 1780 IF PEEK(52280)<>ATHEN SYS52225,1,A
  80. 1790 REM  IN 52280 STEHT DIE AKTUELLE
  81. 1800 REM  SCHIRMNUMMER DES ANZEIGE-
  82. 1810 REM  SPEICHERS.
  83. 1820 :
  84. 1830 d XX,YY,M
  85. 1840 :
  86. 1850 d4
  87. 1860 :
  88. 1870 REM ******************************
  89. 1880 REM ****                      ****
  90. 1890 REM **   dYIE X1,Y1,X2,Y2,M    **
  91. 1900 REM ****                      ****
  92. 1910 REM ******************************
  93. 1920 :
  94. 1930 d1 dYIE
  95. 1940 :
  96. 1950 dE XD,YD,SR,XX,YY,A
  97. 1960 d3 dYIE3
  98. 1970 d.
  99. 1980 :
  100. 1990 d4
  101. 2000 :
  102. 2010 :
  103. 2020 d1 dYIE3
  104. 2030 :
  105. 2040 XD=(X2-X1):YD=(Y2-Y1)
  106. 2050 IF ABS(XD)<ABS(YD)THEN d2 dYIE2
  107. 2060 :
  108. 2070 REM ----------- dYIE1 -----------
  109. 2080 :
  110. 2090 SR=YD/ABS(XD)
  111. 2100 Y=Y1
  112. 2110 FOR X=X1 TO X2 STEP (XD/ABS(XD))
  113. 2120 :    Y=Y+SR
  114. 2130 :    d3 PUNKT1
  115. 2140 NEXT X
  116. 2150 :
  117. 2160 d4
  118. 2170 :
  119. 2180 REM ----------- dYIE2 -----------
  120. 2190 :
  121. 2200 d1 dYIE2
  122. 2210 :
  123. 2220 SR=XD/ABS(YD)
  124. 2230 X=X1
  125. 2240 FOR Y=Y1 TO Y2 STEP (YD/ABS(YD))
  126. 2250 :    X=X+SR
  127. 2260 :    d3 PUNKT1
  128. 2270 NEXT Y
  129. 2280 :
  130. 2290 d4
  131. 2300 :
  132. 2310 REM *****************************
  133. 2320 REM ******                 ******
  134. 2330 REM ***    KREIS X1,Y1,R,M    ***
  135. 2340 REM ******                 ******
  136. 2350 REM *****************************
  137. 2360 :
  138. 2370 d1 KREIS
  139. 2380 :
  140. 2390 dE U,C,S,X,Y,XX,YY,A
  141. 2400 :
  142. 2410 U=R*(null)/4
  143. 2420 :
  144. 2430 FOR I=(null)/4 TO (null)/2 STEP (null)/4/U
  145. 2440 :    C=COS(I)*R:S=SIN(I)*R
  146. 2450 :    X=X1+C:Y=Y1+S:d3 PUNKT1
  147. 2460 :    X=X1+C:Y=Y1+S:d3 PUNKT1
  148. 2470 :    X=X1+S:Y=Y1+C:d3 PUNKT1
  149. 2480 :    X=X1+S:Y=Y1-C:d3 PUNKT1
  150. 2490 :    X=X1+C:Y=Y1-S:d3 PUNKT1
  151. 2500 :    X=X1-C:Y=Y1-S:d3 PUNKT1
  152. 2510 :    X=X1-S:Y=Y1-C:d3 PUNKT1
  153. 2520 :    X=X1-S:Y=Y1+C:d3 PUNKT1
  154. 2530 :    X=X1-C:Y=Y1+S:d3 PUNKT1
  155. 2540 NEXT I
  156. 2550 :
  157. 2560 d.
  158. 2570 d4
  159. 2580 :
  160. 2590 REM *****************************
  161. 2600 REM *****                   *****
  162. 2610 REM ***   BOX X1,Y1,X2,Y2,M   ***
  163. 2620 REM *****                   *****
  164. 2630 REM *****************************
  165. 2640 :
  166. 2650 d1 BOX
  167. 2660 :
  168. 2670 dE A1,B1,A2,B2,XD,YD,SR,XX,YY,A
  169. 2680 :
  170. 2690 A1=X1:A2=X2
  171. 2700 B1=Y1:B2=Y2
  172. 2710 :
  173. 2720 Y2=B1:d3 dYIE3
  174. 2730 Y2=B2:X2=A1:d3 dYIE3
  175. 2740 X1=A2:Y1=B2:d3 dYIE3
  176. 2750 X2=A2:Y2=B1:d3 dYIE3
  177. 2760 :
  178. 2770 d.
  179. 2780 d4
  180.